home *** CD-ROM | disk | FTP | other *** search
- object frmLinkWiz: TfrmLinkWiz
- Left = 204
- Top = 288
- BorderIcons = [biSystemMenu, biHelp]
- BorderStyle = bsDialog
- Caption = 'Insert HyperLink Wizard'
- ClientHeight = 287
- ClientWidth = 417
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Pitch = fpVariable
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object pnlLower: TPanel
- Left = 0
- Top = 249
- Width = 417
- Height = 38
- Align = alBottom
- TabOrder = 0
- object butFinish: TButton
- Left = 254
- Top = 7
- Width = 75
- Height = 25
- Caption = '&Finish'
- TabOrder = 2
- Visible = False
- OnClick = butFinishClick
- end
- object butNext: TButton
- Left = 254
- Top = 7
- Width = 75
- Height = 25
- Caption = 'Next >&>'
- TabOrder = 1
- OnClick = butNextClick
- end
- object butCancel: TButton
- Left = 334
- Top = 7
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&Cancel'
- ModalResult = 2
- TabOrder = 3
- OnClick = butCancelClick
- end
- object butBack: TButton
- Left = 179
- Top = 7
- Width = 75
- Height = 25
- Caption = '&<< Back'
- Enabled = False
- TabOrder = 0
- OnClick = butBackClick
- end
- object btnHelp: TButton
- Left = 8
- Top = 7
- Width = 75
- Height = 25
- Caption = '&Help'
- TabOrder = 4
- OnClick = btnHelpClick
- end
- end
- object pageLink: TPageControl
- Left = 0
- Top = 0
- Width = 417
- Height = 249
- ActivePage = tab2
- Align = alTop
- TabOrder = 1
- object tab1: TTabSheet
- Caption = 'tab1'
- TabVisible = False
- object Label1: TLabel
- Left = 130
- Top = 8
- Width = 265
- Height = 41
- AutoSize = False
- Caption =
- 'This Wizard aids you in the creation of a hyperlink. A hyperlink' +
- ' is a word or image you can click on in your page to jump to ano' +
- 'ther page.'
- WordWrap = True
- end
- object Label5: TLabel
- Left = 130
- Top = 56
- Width = 265
- Height = 57
- AutoSize = False
- Caption =
- 'You can insert links to resources of varying nature, such as new' +
- 'sgroups, Web pages or email addresses.'
- WordWrap = True
- end
- object Label7: TLabel
- Left = 130
- Top = 192
- Width = 265
- Height = 39
- AutoSize = False
- Caption =
- 'If you aren'#39't sure which kind of link you want or are confused b' +
- 'y all this terminology, then press the HELP button. '
- Visible = False
- WordWrap = True
- end
- object lblLink: TLabel
- Left = 140
- Top = 131
- Width = 65
- Height = 14
- Alignment = taRightJustify
- AutoSize = False
- Caption = '&Link type:'
- FocusControl = cmbType
- end
- object imgWizard: TPaintBox
- Left = 8
- Top = 7
- Width = 110
- Height = 225
- OnPaint = imgWizardPaint
- end
- object cmbType: TComboBox
- Left = 212
- Top = 127
- Width = 145
- Height = 21
- HelpContext = 65
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'Web Site Link'
- 'File Link'
- 'FTP Link'
- 'Email Link'
- 'Newsgroup Link'
- 'Telnet Link'
- 'Gopher Link')
- TabOrder = 0
- end
- end
- object tab2: TTabSheet
- Caption = 'tab2'
- TabVisible = False
- object lblA: TLabel
- Left = 130
- Top = 57
- Width = 265
- Height = 16
- AutoSize = False
- Caption = 'lblA'
- end
- object lblB: TLabel
- Left = 130
- Top = 109
- Width = 265
- Height = 20
- AutoSize = False
- Caption = 'lblB'
- end
- object lblC: TLabel
- Left = 130
- Top = 169
- Width = 265
- Height = 16
- AutoSize = False
- Caption = 'lblC'
- end
- object spdFiles: TSpeedButton
- Left = 371
- Top = 75
- Width = 23
- Height = 22
- Hint = 'Up One Level|Go to the folder one level up.'
- Glyph.Data = {
- 36010000424D3601000000000000760000002800000012000000100000000100
- 040000000000C0000000120B0000120B00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777770000007777777777777777770077777000000000007777770077777003
- 3333333307777700700070B03333333330777700700370FB0333333333077700
- 70B070BFB03333333330770070FB70FBFB0000000000070070BF70BFBFBFBFB0
- 7777770070FB70FBFBFBFBF07777770070BF70BFB00000007777770070FB7700
- 077777777000770070BF77777777777777007700770077777777707770707700
- 7777777777777700077777007777777777777777777777007777}
- OnClick = spdFilesClick
- end
- object lblDesc: TLabel
- Left = 130
- Top = 8
- Width = 265
- Height = 43
- AutoSize = False
- Caption = 'lblDesc'
- WordWrap = True
- end
- object txtA: TEdit
- Left = 129
- Top = 75
- Width = 265
- Height = 21
- TabOrder = 0
- end
- object txtB: TEdit
- Left = 130
- Top = 127
- Width = 265
- Height = 21
- TabOrder = 1
- end
- object txtC: TEdit
- Left = 130
- Top = 187
- Width = 265
- Height = 21
- TabOrder = 2
- end
- end
- object tab3: TTabSheet
- Caption = 'tab3'
- TabVisible = False
- object lblDescriptionDesc: TLabel
- Left = 130
- Top = 22
- Width = 271
- Height = 14
- AutoSize = False
- Caption = 'The description is the text that will appear as the link.'
- end
- object lblDescription: TLabel
- Left = 130
- Top = 44
- Width = 265
- Height = 14
- AutoSize = False
- Caption = '&Description:'
- FocusControl = txtDescription
- end
- object lblFrameDesc: TLabel
- Left = 130
- Top = 94
- Width = 273
- Height = 43
- AutoSize = False
- Caption =
- 'The target frame is only useful if you are building pages with f' +
- 'rames. If so, enter the name of the frame you want the linked ob' +
- 'ject to appear in.'
- WordWrap = True
- end
- object lblFrame: TLabel
- Left = 130
- Top = 147
- Width = 275
- Height = 14
- AutoSize = False
- Caption = 'Target &frame:'
- FocusControl = txtFrame
- end
- object txtDescription: TEdit
- Left = 128
- Top = 62
- Width = 276
- Height = 21
- HelpContext = 63
- TabOrder = 0
- end
- object butAdvanced: TButton
- Left = 330
- Top = 200
- Width = 75
- Height = 25
- Caption = '&Advanced'
- TabOrder = 2
- OnClick = butAdvancedClick
- end
- object txtFrame: TComboBox
- Left = 129
- Top = 164
- Width = 276
- Height = 21
- HelpContext = 64
- ItemHeight = 13
- Items.Strings = (
- '_parent'
- '_self'
- '_top'
- '_blank')
- TabOrder = 1
- end
- end
- object tabAdvanced: TTabSheet
- Caption = 'tabAdvanced'
- TabVisible = False
- object lblPortDesc: TLabel
- Left = 130
- Top = 23
- Width = 265
- Height = 35
- AutoSize = False
- Caption =
- 'The port number relates to communication to Web Servers. You nor' +
- 'mally won'#39't need to change this.'
- WordWrap = True
- end
- object lblPort: TLabel
- Left = 130
- Top = 58
- Width = 265
- Height = 14
- AutoSize = False
- Caption = '&Port number:'
- FocusControl = txtPort
- end
- object lblTargetDesc: TLabel
- Left = 130
- Top = 108
- Width = 265
- Height = 60
- AutoSize = False
- Caption =
- 'The target will point the link to a particular placeholder withi' +
- 'n an HTML page. You will only need to change this if you are poi' +
- 'nting to a particular part of a Web page.'
- WordWrap = True
- end
- object lblTarget: TLabel
- Left = 130
- Top = 174
- Width = 265
- Height = 14
- AutoSize = False
- Caption = '&Target:'
- FocusControl = cmbTarget
- end
- object txtPort: TEdit
- Left = 130
- Top = 76
- Width = 265
- Height = 21
- HelpContext = 66
- TabOrder = 0
- end
- object cmbTarget: TComboBox
- Left = 130
- Top = 192
- Width = 269
- Height = 21
- HelpContext = 67
- ItemHeight = 13
- TabOrder = 1
- end
- end
- end
- end
-